home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Trip.AMOS / Trip.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  1.1 KB  |  37 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. XSIZE=127
  10. YSIZE=127
  11. STEG=6
  12. Degree 
  13. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Hide 
  14. Cls 0
  15. Palette 0,$700,$820,$B40,$D80,$FA0,$FD0,$FE0,$FF0,$FF1,$FF2,$FF3,$FE4,$FD5,$FC6,$FB7,$EA8,$D99,$C8A,$B7B,$A6C,$95D,$84E,$73F,$63E,$52C,$42A,$319,$217,$105,$303,$501
  16.  
  17. Shift Up 3,1,31,1
  18.  
  19. For Y=0 To YSIZE Step STEG
  20.    For X=0 To XSIZE Step STEG
  21.       Ink Rnd(30)+1
  22.       Bar X,Y To X+STEG-1,Y+STEG-1
  23.    Next 
  24. Next 
  25.  
  26. For N=0 To 9
  27.    For Y=0 To YSIZE+STEG
  28.       For X=0 To XSIZE+STEG
  29.          P=Point(X,Y)*4+Point(X-1,Y)+Point(X+1,Y)+Point(X-1,Y-1)+Point(X,Y-1)+Point(X+1,Y-1)
  30.          O=P/9
  31.          If O<1 Then O=1
  32.          If O>31 Then O=31
  33.          Ink O
  34.          Plot X,Y
  35.       Next 
  36.    Next 
  37. Next